說過了檔案的一些控制
再來就是「資料夾」的控制囉..
確認資料夾是否存在(FolderExists方法)
當我們要寫入或是讀取檔案時,有時候檔案會放在某些資料夾裡
在讀取或是寫入之前,最好先確認資料夾是否存在
若是不存在,那會很容易出現錯誤的情況
那要怎麼做確認呢?? 看以下的範例:
Option Explicit
Private FSO
Private FolderPath
Set FSO = CreateObject("Scripting.FileSystemObject")
FolderPath = CreateObject("WScript.Shell") _
.Environment("Process")("windows") & "\system32"
If FSO.FolderExists(FolderPath) Then
WScript.Echo FolderPath & "沒有找到該資料夾。"
Else
WScript.Echo FolderPath & "確認資料夾是存在的。"
End If
Set FSO = Nothing
這個範例是在確認在「windows」 資料夾裡是否有「system32」這個資料夾的存在
未來在使用上如果是由AD主機要複製一些檔案給Client端時
最好是先確認目的資料夾是否存在,以避免一些錯誤的發生
提供給有需要的人..